home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / crazy bomber.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  201 lines
  1. 10 POKE53280,0:POKE53281,7
  2. 50 PRINT"[147]MODIFIED FOR THE C-64 BY RAVI PALEPU."
  3. 60 FORXF=1TO1500:NEXT
  4. 100 POKE59468,12:POKE59409,52:P$="       >>>>[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]<<<<"
  5. 101 PRINT"[147][144]"P$
  6. 102 PRINT"       >>>> THE CRAZY BOMBER <<<<"
  7. 104 PRINTP$
  8. 120 PRINT" THIS IS A GAME OF SKILL TO SEE HOW WELLYOU CAN FLY A ";
  9. 130 PRINT"BOMBER.  YOU ARE GIVEN    TWENTY FLY-BYS TO DROP BOMBS TO HIT[160]";
  10. 140 PRINT"    TARGETS BELOW.  YOU CAN ONLY MISS THE   TARGET ";
  11. 150 PRINT"THREE TIMES.  AFTER TWENTY FLY-  BYS OR THREE MISSES THE GAME IS[160]";
  12. 160 PRINT"OVER.   MAKE EVERY[146] BOMB COUNT!"
  13. 175 PRINT"PUSH THE '*' BUTTON TO DROP EACH BOMB."
  14. 176 PRINT"YOU GET UP TO TWO BOMBS PER FLY-BY."
  15. 180 PRINT"PRESS[160]ANY KEY TO PLAY. GOOD LUCK!!":POKE59409,60
  16. 190 GET Q$:IFQ$=""THEN190
  17. 200 G=59468:X=G-59:POKEG,12:POKEX,52:PRINT"[147]"
  18. 201 PRINT"WHICH SKILL LEVEL DO YOU WISH TO PLAY?  (1=EASY 2=HARD)":POKEX,60
  19. 202 GETA$:IF A$=""THEN202
  20. 204 A=VAL(A$):IFA<3ANDA>0THEN208
  21. 206 PRINT"      ANSWER 1 OR 2.":FORI=1TO1000:NEXT:GOTO200
  22. 208 PRINT"[147]":POKEG,12
  23. 209 Z$="[157][157][157][157][157][157]":F$="":Y2$="[166][166][166][166][166][166]":B5$="          ":IFA=2GOTO7000
  24. 220 POKEX,52:PRINTF$F$"[146][166]1[146]"B5$"       1[146][166]11[146]"B5$"     1[146][166]";
  25. 230 PRINT"[146][166]2[146]"B5$"      12[146][166]22[146]"B5$"    12[146][166]";
  26. 240 PRINT"[146][166]31[146]"B5$"     23[146][166][166]31[146]"B5$"   23[146][166]";
  27. 250 PRINT"[146][166]421[146]"B5$"    34[146][166][166][166]21[146]"B5$" 134[146][166]";
  28. 260 PRINT"[146][166][166]321[146]"B5$"  145[146][166][166][166][166]21[146]         124[146][166][166]";
  29. 270 PRINT"[146][166][166]43211111[146]   1111256[146][166][166][166][166]3211111[146]   1235[146][166][166]";
  30. 280 PRINT"[146][166][166][166][166][166]2222211[146] 2222[146]"Y2$"[166][166]3222221[146] 12[146][166][166][166][166][166]";
  31. 290 PRINT"[146]"Y2$"333322133[146]"Y2$Y2$"[166]333212[146]"Y2$;
  32. 300 PRINT"[146]"Y2$Y2$Y2$Y2$Y2$Y2$"[166][166][166][166]";
  33. 310 PRINT"[146][166][166][166][166] SCORE=  0 [166][166][166][166] MISSES LEFT= 3 [166][166][166][166][166]":POKEX,60:PRINT""
  34. 320 N=0:H=0:GE=0:DIMV(5),BH(5),HT(5):R=1729:S=R+1:T=S+1:U=R-39:W=1050:TR=500
  35. 410 FORC=1TO20:IFGE<>0THEN3000
  36. 413 H=0:BH(1)=0:BH(2)=0:D=INT(RND(1)*5+1)
  37. 414 ONDGOTO415,416,417,418,419
  38. 415 D$="":GOTO420
  39. 416 D$="":GOTO420
  40. 417 D$="":GOTO420
  41. 418 D$=""+F$:GOTO420
  42. 419 D$=""+F$
  43. 420 IFINT(C/2)=(C/2)THENE=39:GOTO450
  44. 430 E=41
  45. 450 IFE=39THEN600
  46. 460 FORL=1TO47:IFL>40THEN490
  47. 472 ONLGOTO481,482,483,484,485,486,487,488
  48. 480 PRINTD$TAB(L-8);" [223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [166][146][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
  49. 481 PRINTD$"[221][157][179][157][221]":GOTO590
  50. 482 PRINTD$"[207][221][157][157][166][179][157][221][157][157][190]":GOTO590
  51. 483 PRINTD$"[208][207][221][157][157][157] [146][166][179][157][157][157][205] [221][157][157][157] [190]":GOTO590
  52. 484 PRINTD$".[208][207][221][157][157][157][157][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
  53. 485 PRINTD$" .[208][207][221][157][157][157][157][157][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
  54. 486 PRINTD$"[223][146] .[208][207][221]"Z$"[184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
  55. 487 PRINTD$"[223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
  56. 488 PRINTD$" [223][223][146] .[208][207][221]"Z$"[157][157]  [184][184][185] [146][166][179][157][157][157][157][157]  [205] [221][157][157][157][157]  [190]":GOTO590
  57. 490 ONL-40GOTO500,510,520,530,540,550,560
  58. 500 PRINTD$TAB(33);" [223][223][146] .[208][207]"Z$" [184][184][185] [166][146][157][157][157] [205] [157][157] [190]":GOTO590
  59. 510 PRINTD$TAB(34);" [223][223][146] .[208][157][157][157][157][157] [184][184][185] [146][157][157] [205] [157][157] ":GOTO590
  60. 520 PRINTD$TAB(35);" [223][223][146] .[157][157][157][157] [184][184][185][146][157]  ":GOTO590
  61. 530 PRINTD$TAB(36);" [223][223][146] [157][157][157] [184][184][146][157]  ":GOTO590
  62. 540 PRINTD$TAB(37);" [223][223][146] [157][157][157] [184][146]":GOTO590
  63. 550 PRINTD$TAB(38);" [223][146] [157][157][157]  [146]":GOTO590
  64. 560 PRINTD$TAB(39);" [157] "
  65. 590 GOTO800
  66. 600 FORL=1TO47
  67. 610 ONLGOTO640,650,660,670,680,690,700,710
  68. 620 IFL>40THEN720
  69. 630 PRINTD$TAB(40-L);"[221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
  70. 640 PRINTD$TAB(39)"[221][157][171][157][221]":GOTO800
  71. 650 PRINTD$TAB(38)"[221][208][157][157][171][166][157][157][221][188]":GOTO 800
  72. 660 PRINTD$TAB(37)"[221][208][207][157][157][157][171][166] [146][157][157][157][221] [206][157][157][188] ":GOTO800
  73. 670 PRINTD$TAB(36)"[221][208][207].[157][157][157][157][171][166] [185][146][157][157][157][157][221] [206] [157][157][157][188] ":GOTO800
  74. 680 PRINTD$TAB(35)"[221][208][207]. [157][157][157][157][157][171][166] [185][146][184][157][157][157][157][157][221] [206] [157][157][157][188] ":GOTO800
  75. 690 PRINTD$TAB(34)"[221][208][207]. [169][146]"Z$"[171][166] [185][146][184][184]"Z$"[221] [206] [157][157][157][188] ":GOTO800
  76. 700 PRINTD$TAB(33)"[221][208][207]. [169][146][169]"Z$"[157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
  77. 710 PRINTD$TAB(32);"[221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
  78. 720 ONL-40GOTO730,740,750,760,770,780,790
  79. 730 PRINTD$"[208][207]. [169][146][169] "Z$"[157][166] [185][146][184][184] "Z$" [206] [157][157][157][188] ":GOTO800
  80. 740 PRINTD$"[207]. [169][146][169] "Z$" [185][146][184][184] [157][157][157][157][157][206] [157][157] ":GOTO800
  81. 750 PRINTD$". [169][146][169] [157][157][157][157][157][185][146][184][184] [157][157][157][157] ":GOTO800
  82. 760 PRINTD$" [169][146][169] [157][157][157][157][184][184] ":GOTO800
  83. 770 PRINTD$"[169][146][169] [157][157][157][184] ":GOTO800
  84. 780 PRINTD$"[169] [157][157] ":GOTO800
  85. 790 PRINTD$" "
  86. 800 GETK$
  87. 805 IFK$<>"*"THEN1000
  88. 810 IFW2=1THEN1330
  89. 915 IFL<5ORL>31+(D*2)THEN1330
  90. 917 IFH=>1ANDL<Y+2THEN1000
  91. 918 H=H+1:SB(H)=0:IFH=5THEN8020
  92. 919 N=N+1
  93. 920 IFN=31THEN3000
  94. 930 IFE=41THEN950
  95. 935 V(H)=(1107+(D*80)-L):POKEV(H),42:GOTO960
  96. 950 V(H)=(1060+(D*80)+L):POKEV(H),42
  97. 960 Y=L
  98. 1000 IFH=0THEN1330
  99. 1010 FORB=1TOH
  100. 1020 IFSB(B)=1THEN1300
  101. 1050 I=V(B)-40:J=PEEK(I):M=V(B)+E:K=PEEK(M)
  102. 1070 IFK=32THEN1240
  103. 1080 IFK=102THEN1150
  104. 1090 IFK>176ANDK<186THEN1100
  105. 1092 GOSUB5100:GOTO1300
  106. 1100 F=F+(K-176)
  107. 1102 PRINT"";:FORP=1TO22:PRINT"";:NEXTP
  108. 1104 IFF<10THENPRINT"";F:GOTO1120
  109. 1108 IFF=>10ANDF<100THENPRINT"";F:GOTO1120
  110. 1112 IFF=>100ANDF<1000THENPRINT"";F
  111. 1120 BH(B)=1:POKEM,42:POKEV(B),32:GOTO1260
  112. 1150 IFBH(B)<>1THEN1180
  113. 1160 POKEV(B),32:SB(B)=1:GOTO1260
  114. 1180 ER=ER+1:POKE1937,57-ER:IFER=10THENGE=1
  115. 1210 SB(B)=1:IFER=10THENGE=1
  116. 1220 GOTO1260
  117. 1240 POKEM,42:POKEV(B),32
  118. 1260 V(B)=V(B)+E:IFV(B)<33007THEN1300
  119. 1270 POKEI+40,J:IFJ=32THEN1300
  120. 1290 I=I-40:J=PEEK(I):IFJ=42THEN1290
  121. 1295 GOTO1270
  122. 1300 NEXTB
  123. 1310 IFGE<>0THEN3000
  124. 1322 IFA<>3THEN1330
  125. 1330 IFA=2THENGOSUB5000
  126. 1335 NEXTL
  127. 1340 IF W2=1THENGOTO3330
  128. 1341 NEXTC
  129. 3000 GOSUB6000
  130. 3030 PRINT"";TAB(10);"   FINAL STATS[146]"
  131. 3035 IFC=21THENPRINTF$"YOUR PLANE MADE ALL 20 OF ITS FLY-BYS.":GOTO3045
  132. 3040 PRINTF$"YOUR PLANE MADE"C"OUT OF 20 FLY-BYS."
  133. 3045 IFN=21THENPRINT"YOU DROPPED ALL OF YOUR 20 BOMBS.":GOTO3060
  134. 3050 PRINT"THE GAME ENDED WITH"N"OUT OF 20 BOMBS":PRINT"DROPPED."
  135. 3060 IFER=1THENPRINT"YOU HAD 1 MISS. (ONLY 3 ALLOWED)"
  136. 3062 IFER<>1THENPRINT"YOU HAD"ER"MISSES.  (ONLY 3 ALLOWED)."
  137. 3070 PRINT"** YOUR FINAL SCORE WAS "F"[157] **"
  138. 3072 IFS2<FTHENS2=F
  139. 3074 IFP9>0THENPRINT"HIGH SCORE THIS SESSION="S2"[157]."
  140. 3080 PRINT"DO YOU WANT TO PLAY AGAIN?":POKEX,60
  141. 3090 GETZ$:IFZ$=""THEN3090
  142. 3100 IFZ$="N"THENGOTO3310
  143. 3200 IFZ$="Y"THEN3305
  144. 3300 PRINT"PLEASE ANSWER WITH A Y OR N.[145]":GOTO3090
  145. 3305 POKE59409,52:P9=P9+1:POKE2023,P9:POKE2022,S2
  146. 3308 CLR:P9=PEEK(2023):S2=PEEK(2022):GOTO200
  147. 3310 PRINT"[147]"F$"    I HOPE YOU ENJOYED THE GAME!":ER=0:A=1:D=0:W2=1:H=0
  148. 3320 Z$="[157][157][157][157][157][157]":AB=0:D$="":GOTO600
  149. 3330 PRINT"[147]":POKEG,12:END
  150. 5000 Q=Q+1
  151. 5010 IFQ=10THENQ=1
  152. 5020 ONQGOTO5025,5030,5035,5040,5045,5050,5055,5060
  153. 5025 POKER,229:POKES,229:POKET,229:GOTO5070
  154. 5030 POKER,212:POKES,212:POKET,212:GOTO5070
  155. 5035 POKER,199:POKES,199:POKET,199:GOTO5070
  156. 5040 POKER,194:POKES,194:POKET,194:GOTO5070
  157. 5045 POKER,221:POKES,221:POKET,221:GOTO5070
  158. 5050 POKER,200:POKES,200:POKET,200:GOTO5070
  159. 5055 POKER,217:POKES,217:POKET,217:GOTO5070
  160. 5060 POKER,231:POKES,231:POKET,231:GOTO5070
  161. 5070 RETURN
  162. 5100 POKEV(B),32:SB(B)=1:POKEU,78:FORI=1TO750:NEXTI
  163. 5110 POKEU,32:POKEU-1,122:FORI=1TO750:NEXTI:P=160:K=0
  164. 5112 FORI=1TO2
  165. 5114 FORJ=UTOWSTEP-40
  166. 5116 IFK=1THEN5120
  167. 5118 IFPEEK(J)=32ORPEEK(J)=96ORPEEK(J)=160THEN5120
  168. 5119 K=1:W=J:P=32:GOTO5124
  169. 5120 POKE(J),P
  170. 5122 NEXTJ
  171. 5123 P=32
  172. 5124 NEXTI:IFK=1THEN5500
  173. 5170 POKEU-1,100:POKEU,78:FORI=1TO750:NEXTI:POKEU,100
  174. 5180 RETURN
  175. 5200 GOSUB5150
  176. 5500 FORI=1TO6
  177. 5505 IFE=39THEN5550
  178. 5540 PRINT""D$TAB(L-8);"        "Z$"[157]       [157][157][157][157]    [157][157][157]  "
  179. 5545 PRINT""D$TAB(L-8);" [146][223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [166][146][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO5580
  180. 5550 PRINT""D$TAB(40-L);"        "Z$"[157][157]       "Z$"[157]    [157][157][157]  "
  181. 5555 PRINT""D$TAB(40-L);"[146][221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] "
  182. 5580 NEXTI
  183. 5585 PRINT""D$TAB(L-8);"        "Z$"[157]       [157][157][157][157]    [157][157][157]  "
  184. 5590 PRINT""D$TAB(40-L);"        "Z$"[157][157]       "Z$"[157]    [157][157][157]  "
  185. 5595 POKEU-1,100:POKEU,78:FORI=1TO750:NEXTI:POKEU,100
  186. 5600 FORI=1TO1500:NEXTI:GOTO3000
  187. 6000 POKEX,52:PRINT"[147][223][223][146] .[208][207][221]"Z$"[184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]"
  188. 6060 PRINT""TAB(33);"[221][208][207]. [169][146][169]"Z$"[157][171][166] [185][146][184][184]"Z$"[221] [206] [157][157][157][188]":RETURN
  189. 7000 POKEX,52:PRINT"[147]"F$F$"      WATCH OUT FOR THE DEATH BEAM! "
  190. 7002 PRINT""F$F$"       DO NOT HIT THE SENSORS!!!    "
  191. 7003 POKEX,60:FORI=1TO2000:NEXTI
  192. 7004 POKEX,52:PRINT"[147]"F$F$
  193. 7005 PRINT"         99[146]"B5$B5$"        [166][145][157][166][145][157][166]";
  194. 7010 PRINT"       "Y2$"      5[146]     [164][164][164]"B5$"5[146][166]";
  195. 7020 PRINT"      "Y2$"[166][166][166]    6[146] ^^9[146] [165][165][165][146] 9^^[146]     66[146][166]";
  196. 7030 PRINT"     "Y2$"[166][166][166][166]    7[146][166][166][166][166]     [146][166][166][166][166]    77[146][166]";
  197. 7040 PRINT"    "Y2$Y2$"   8[146]"Y2$Y2$"[166][166]  888[146][166]";
  198. 7050 PRINT" 99[146]"Y2$Y2$"[166][166] 99[146]"Y2$Y2$"[166][166][166]9999[146][166]";
  199. 7499 GOTO300
  200. 8020 H=4:NB=NB-1:B=2:GOTO1000
  201.